home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
powerb5.zip
/
WWDIR.TXT
< prev
next >
Wrap
Text File
|
1993-06-01
|
973b
|
45 lines
Sub MAIN
Dim TypeArr$(4)
TypeArr$(0) = "Jones Account"
TypeArr$(1) = "Smith Account"
TypeArr$(2) = "Personal Letters"
TypeArr$(3) = "Temporary"
TypeArr$(4) = "Great American Novel"
TryAgain:
Begin Dialog UserDialog 325, 112
Text 6, 10, 300, 18, "Project Name or Path"
ComboBox 6, 25, 200, 85, TypeArr$(), .ProjDir
OKButton 250, 80, 40, 18
End Dialog
Dim Project As Dialog UserDialog
Dialog Project
Answer$ = Project.ProjDir
Select Case Project.ProjDir
Case "Jones Account"
ChDir "C:\jones"
Case "Smith Account"
ChDir "C:\smith"
Case "Personal Letters"
ChDir "C:\personal"
Case "Temporary"
ChDir "C:\temp"
Case ""
Goto TryAgain
Case Else
Err = 0
On Error Goto ErrorMsg
ChDir Answer$
Goto Done
ErrorMsg:
Prompt$ = "Create Directory: " + Answer$ + " ?"
Num = MsgBox(Prompt$, "Path Not Found", 36)
If Num = - 1 Then
MkDir Answer$
ChDir Answer$
Else
Goto TryAgain
End If
Done:
End Select
End Sub